EnableControl method

Changes the appearance of a control on the form to match the edit mode.

Syntax

Private Sub IAMExtensionPage_SetEditMode(ByVal EditMode As PPEDITMODES)
    On Error GoTo error_handler
    Dim bReadOnly As Boolean

    bReadOnly = (EditMode = PPEM_READONLY)

    If Not m_Designer Is Nothing Then
        ' Set the edit mode of the datasource
        m_Designer.SetEditMode Me, EditMode, False
        ' Update the edit mode of the controls
        Call m_Designer.EnableControl(ammDrawingNumber_BSTR)
    End If

    Exit Sub
error_handler:
    MsgBox caption & " SetEditMode: " & Err.Description
End Sub